﻿
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            'Exemplo de como inicializar as cores do dente
            'Foi implementado dos dentes 11 ao 18, caso preciso basta implementar para os demais
            Dim Cor1 As New Odontograma.Cor
            Cor1 = Global.Odontograma.Cor.blue
            Dim CorBranca As New Odontograma.Cor
            CorBranca = Global.Odontograma.Cor.white
            Odontograma.InicializaDente11(CorBranca, Cor1, Cor1, CorBranca, CorBranca)


        End If
    End Sub
End Class
